file:    BYE96HST.MOD    
subject: changes to BYE510 for use of USR Courier HST 9600 baud modem
date:    88/11/24   
author:  Liv Hinckley, sysop FOG#15/NYOUG (212)489-7370
;
;  This file contains the necessary changes to Irv Hoff's BYE510 
;to use the USR Courier HST 9600 baud modem.  The changes are 
;simple for anyone to implement thanks to the very thoroughly  
;documented and annotated files provided by Mr. Hoff.  Most of the 
;work for higher modem speeds was already done in the release 
;version of BYE510. Here we fill in the details necessary to the 
;use of the HST as submitted to PRACSA RCPM on 87/05/25.
;  I hope that others will extend these mods to take fuller 
advantage ot the HST.  This is only a beginning. 
;
;  FOG#15 uses an Osborne Executive CP/M+ computer with 
;Trantor/Westwind hard drive interfaces.  This version of BYE is 
;still in use on FOG#15 with no known bugs.
;
;
;^^^^^----------------------------------------------------new 5/25/87 lh
; Two new equates in BYE option section
;
HST	EQU	YES		;^^^Yes for USR Courier HST result codes
ARQ	EQU	YES		;^^^ Yes for HST ARQ (15-17) result codes
;---------------------------------------------------------end new
;
;^^^^^-----------------------------------------------------new 5/25/87 lh
; Wasn't in the code but very obvious.. maybe add 19200 also?
;
SET9600:MVI	A,BDCMD5	; Get second byte of command
	PUSH	PSW		; ..store it
	MVI	A,B9600		; Load rate
;--------------------------------------------------------end new
;
;^^^^^----------------------------------------------------NEW 5/25/87 LH
; Add new recognition for the extended codes.
;  Most users would use ARQ, but might this not cause trouble
;    with the other programs?
;
	 IF 	B5IM AND HST	; USR Courier HST result codes ENABLED
	CPI	'3'		; 9600 (USR uses 13 if ARQ results
	 ENDIF
;
	 IF	B5IM AND HST AND ARQ
	JZ	SET96		; Yes        are disabled with &A0)
 	CPI	'5'		; 1200/ARQ?  (15,16,17 are default &A1)
	JZ	SET12		; Yes
	CPI	'6'		; 2400/ARQ?
	JZ	SET24		; Yes
	CPI	'7'		; 9600/ARQ?
	JZ	SET96		; Yes
	 ENDIF
; 5/26 just noticed- need to recognize 13 from X1 setting with &A0 in
; case user needs to turn off ARQ codes. Must change. Anchor must be NO
; Should make new displays for result codes 15,16,17.
;perhaps this should also go into KMD.LOG?? haven't checked howto (lh) 
;------------------------------------------------------end new
;
;^^^^^--------------------------------------------------new 5/25/87 lh
SET96	CALL	DLP		; 1 sec delay
	CALL	SET9600		; set port to 9600 bps
	MVI	A,BP9600
	STA	MSPEED		; set speed indicator
	JMP	FINISH
;-----------------------------------------------------end new
;
;^^^^^-------------------------------------------------NEW 5/25/87 lh
; Set HST Extended result codes
	 IF	B5IM AND HST AND (NOT ARQ)
	DB	'&A0'		; Suppress extended codes in case they
	 ENDIF			;  cause trouble.

	 IF	B5IM AND HST AND ARQ
	DB	'&A1'		; This is default, but do it just in case
	 ENDIF			; something changed NRAM settings. 
;
;
;	 IF B5IM AND HST AND PRGRSS	
;	DB	'ATI6'		; try to show diagnostics screen
;	DB	'ATI3'		; show call duration
;	 ENDIF
;   Need display routine for  diagnostics- full page of text, ends with 'OK'
; OR-- put it into the SYS.LOG, or both....
;----------------------------------------------------end new
;
;^^^^^------------------------------------------------new 5/27/87 lh
MSG96	DB	'9600 baud test',CR,LF,0      ; probably not needed
;					      ; since B5IM would be YES
;---------------------------------------------------end new
;
